home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
extras
/
programm
/
gemfsc20
/
gemfsc20.lzh
/
GEMFBIND
/
VOUTPXY.S
< prev
next >
Wrap
Text File
|
1993-03-26
|
1KB
|
46 lines
;*========================================================================
;* VDIFAST Public Domain VDI bindings.
;*========================================================================
;*------------------------------------------------------------------------
;*-----------------------------------------------------------------------
;* vout_pxy.
;* For VDI output calls that use only count and/or pxyarray.
;*
;* This function is not exported to C, it's to be used only by other vdi
;* bindings functions.
;*
;* Entry: d0.w = function number.
;* d1.w = subfunction number.
;* a1.w = number of points in ptsin.
;* a0.l-> ptsin array
;*-----------------------------------------------------------------------
;*------------------------------------------------------------------------
globl vout_pxy
vout_pxy:
; .cargs #8,handle.w
handle = 8
link a6,#0
; VContrl d0,d1,a1
move.w handle(a6),-(sp) ; contrl[6]
move.w d1,-(sp) ; contrl[5]
subq.l #2,sp ; contrl[4]
clr.l -(sp) ; contrl[3,2]
move.w a1,-(sp) ; contrl[1]
move.w d0,-(sp) ; contrl[0]
subq.l #8,sp ;* -> ptsout, intout
move.l a0,-(sp) ;* -> ptsin
subq.l #4,sp ;* -> intin
pea 16(sp) ;* -> contrl
jmp vdicall
end